ALMaSS: Skylark_Population_Manager Class Reference

#include <skylarks_all.h>

Inheritance diagram for Skylark_Population_Manager:

Public Member Functions
void	CreateObjects (int ob_type, TAnimal pTAo, void null, Skylark_struct *data, int number)

virtual void	Init (void)

void	WriteSKPOM1 (int n, int n2)

void	WriteSKPOM2 (int n, int n2)

int	SupplyM_Mig_Mort ()

int	SupplyF_Mig_Mort ()

int	SupplyNoTerritories ()

int	TheSkylarkTerrsSupply_x (int)

int	TheSkylarkTerrsSupply_y (int)

int	TheSkylarkTerrsSupply_size (int)

int	TheSkylarkTerrsSupply_quality (int)

void	SetM_Mig_Mort (int m)

void	SetF_Mig_Mort (int m)

	Skylark_Population_Manager (Landscape *L)

virtual	~Skylark_Population_Manager (void)

int	TheFledgelingProbe ()

virtual void	BreedingPairsOutput (int Time)

void	FledgelingProbeOutput (int Total, int Time)

int	TheBreedingFemalesProbe (int ProbeNo)

bool	OpenTheBreedingPairsProbe ()

bool	OpenTheFledgelingProbe ()

void	incNoFledgeDeaths ()

void	incNoChickDeaths ()

void	incNoPestEffects ()

void	incTotalEggs (int eggs)

void	incTotalNestlings ()

void	incTotalPrefledgelings ()

void	AddStriglingMort (int lifestage)

double	SupplyEMi ()

bool	IsBadWeather ()

virtual bool	OpenTheBreedingSuccessProbe ()

virtual void	BreedingSuccessProbeOutput (double, int, int, int, int, int, int, int)

virtual int	TheBreedingSuccessProbe (int &BreedingFemales, int &YoungOfTheYear, int &TotalPop, int &TotalFemales, int &TotalMales, int &BreedingAttempts)

virtual void	TheAOROutputProbe ()

virtual void	TheRipleysOutputProbe (FILE *a_prb)

Public Member Functions inherited from Population_Manager
	Population_Manager (Landscape *L)

virtual	~Population_Manager (void)

void	SetNoProbes (int a_pn)

unsigned	GetLiveArraySize (int a_listindex)
	Gets the number of 'live' objects for a list index in the TheArray. More...

void	IncLiveArraySize (int a_listindex)
	Increments the number of 'live' objects for a list index in the TheArray. More...

virtual void	Catastrophe (int)

unsigned int	FarmAnimalCensus (unsigned int a_farm, unsigned int a_typeofanimal)

char *	SpeciesSpecificReporting (int a_species, int a_time)

char *	ProbeReport (int a_time)

char *	ProbeReportTimed (int a_time)

void	ImpactProbeReport (int a_Time)

bool	BeginningOfMonth ()

void	LOG (const char *fname)

int	SupplyStepSize ()

int	SupplySimW ()

int	SupplySimH ()

virtual void	Run (int NoTSteps)

virtual float	Probe (int ListIndex, probe_data *p_TheProbe)

virtual void	ImpactedProbe ()

int	SupplyListNameLength ()

TAnimal *	SupplyAnimalPtr (int a_index, int a_animal)
	Returns the pointer indexed by a_index and a_animal. Note NO RANGE CHECK. More...

unsigned	SupplyListIndexSize ()

unsigned	SupplyListSize (unsigned listindex)

bool	CheckXY (int l, int i)
	Debug method to test for out of bounds coordinates. More...

const char *	SupplyListName (int i)

bool	IsLast (unsigned listindex)

int	SupplyState (unsigned listindex, unsigned j)

virtual void	SupplyLocXY (unsigned listindex, unsigned j, int &x, int &y)

const char *	SupplyStateNames (int i)

unsigned	SupplyStateNamesLength ()

virtual void	DisplayLocations ()

int	ProbeFileInput (char *p_Filename, int p_ProbeNo)

TAnimal *	FindClosest (int x, int y, unsigned Type)

bool	OpenTheRipleysOutputProbe (string a_NWordFilename)

void	OpenTheAOROutputProbe (string a_AORFilename)

bool	OpenTheMonthlyRipleysOutputProbe ()

bool	OpenTheReallyBigProbe ()

virtual void	TheReallyBigOutputProbe ()

void	CloseTheMonthlyRipleysOutputProbe ()

virtual void	CloseTheRipleysOutputProbe ()

virtual void	CloseTheReallyBigOutputProbe ()

TTypesOfPopulation	GetPopulationType ()

int	GetSeasonNumber ()
	Get the season number. More...

void	LamdaDeath (int x, int y)

void	LamdaBirth (int x, int y)

void	LamdaBirth (int x, int y, int z)

void	LamdaClear ()

void	LamdaDumpOutput ()

virtual int	SupplyPegPosx (int)

virtual int	SupplyPegPosy (int)

virtual int	SupplyCovPosx (int)

virtual int	SupplyCovPosy (int)

virtual void	TheGeneticProbe (unsigned, int, unsigned &)

virtual void	GeneticsResultsOutput (FILE *, unsigned)

Public Attributes
SkTerritories *	TheSkylarkTerrs

int	VegTypeFledgelings [100]

Public Attributes inherited from Population_Manager
int	IndexArrayX [5][10000]

probe_data *	TheProbe [100]

int	SimH

int	SimW

unsigned	SimHH

unsigned	SimWH

char	m_SimulationName [255]

bool	ProbesSet

Landscape *	m_TheLandscape

Protected Member Functions
virtual void	DoFirst ()

void	ProbeReportPOM (int a_time)

float	ProbePOM (int ListIndex, probe_data *p_TheProbe)
	Modified probe for POM Output. More...

void	LoadParameters ()

virtual void	Catastrophe ()

virtual void	ReHouse ()

Protected Member Functions inherited from Population_Manager
virtual bool	StepFinished ()
	Overrides the population manager StepFinished - there is no chance that hunters do not finish a step behaviour. More...

virtual void	DoBefore ()

virtual void	DoAfter ()

virtual void	DoAlmostLast ()

virtual void	DoLast ()

void	EmptyTheArray ()
	Removes all objects from the TheArray by deleting them and clearing TheArray. More...

void	SortX (unsigned Type)

void	SortXIndex (unsigned Type)

void	SortY (unsigned Type)

void	SortState (unsigned Type)

void	SortStateR (unsigned Type)

unsigned	PartitionLiveDead (unsigned Type)

void	Shuffle_or_Sort (unsigned Type)

void	Shuffle (unsigned Type)

Protected Attributes
int	M_Mig_Mort

int	F_Mig_Mort

double	EMi

int	m_StriglingMort [4]

int	m_TotalEggs

int	m_TotalNestlings

int	m_TotalPrefledgelings

int	m_NoFledgeDeaths

int	m_NoChickDeaths

int	m_NoPestEffects

bool	m_IsBadWeather

FILE *	SKPOM1

FILE *	SKPOM2

Protected Attributes inherited from Population_Manager
vector< unsigned >	m_LiveArraySize

int	m_NoProbes

AOR_Probe *	m_AOR_Probe

FILE *	m_GeneticsFile

FILE *	m_AlleleFreqsFile

FILE *	m_EasyPopRes

const char *	StateNames [100]

int	m_catastrophestartyear

int	m_StepSize

vector< TListOfAnimals >	TheArray

unsigned	StateNamesLength

const char *	m_ListNames [32]

unsigned	m_ListNameLength

FILE *	TestFile

FILE *	TestFile2

unsigned	BeforeStepActions [12]

int	m_SeasonNumber
	Holds the season number. Used when running goose and hunter sims. More...

TTypesOfPopulation	m_population_type

ofstream *	AOROutputPrb

FILE *	RipleysOutputPrb

FILE *	RipleysOutputPrb1

FILE *	RipleysOutputPrb2

FILE *	RipleysOutputPrb3

FILE *	RipleysOutputPrb4

FILE *	RipleysOutputPrb5

FILE *	RipleysOutputPrb6

FILE *	RipleysOutputPrb7

FILE *	RipleysOutputPrb8

FILE *	RipleysOutputPrb9

FILE *	RipleysOutputPrb10

FILE *	RipleysOutputPrb11

FILE *	RipleysOutputPrb12

FILE *	ReallyBigOutputPrb

long int	lamdagrid [2][257][257]

Constructor & Destructor Documentation

◆ Skylark_Population_Manager()

Skylark_Population_Manager::Skylark_Population_Manager ( Landscape * L )

                                                                       : Population_Manager( L ) {
   // Five lists are needed so need to remove 5 of the ten default arrays
   // Clutches,Nestlings,PreFledgelings,Males,Females
  
   for ( int i = 0; i < 5; i++ ) {
     TheArray.pop_back();
   }
  
   M_Mig_Mort = 0;
   F_Mig_Mort = 0;
   //
   /*
   F_Mig_Mort_min = cfg_femreturnmortmin.value();
   F_Mig_Mort_max = cfg_femreturnmortmax.value();
   M_Mig_Mort_min = cfg_malereturnmortmin.value();
   M_Mig_Mort_max = cfg_malereturnmortmax.value();
   */
   //
   JuvenileReturnMort = cfg_juvreturnmort.value();
   //SkYoungWetDay = cfg_skyoungwetday.value();
  
   TheSkylarkTerrs = new SkTerritories( L );
 #ifdef __CJTDebug_10
   refnum = 0;
 #endif
   Init();
 }

References cfg_juvreturnmort, F_Mig_Mort, Init(), JuvenileReturnMort, M_Mig_Mort, Population_Manager::TheArray, TheSkylarkTerrs, and CfgInt::value().

◆ ~Skylark_Population_Manager()

Skylark_Population_Manager::~Skylark_Population_Manager ( void )

virtual

                                                               {
   // delete all lists
   delete TheSkylarkTerrs;
 #ifdef __SKPOM
   fclose(SKPOM1);
   fclose(SKPOM2);
 #endif
 }

References SKPOM1, SKPOM2, and TheSkylarkTerrs.

Member Function Documentation

◆ AddStriglingMort()

void Skylark_Population_Manager::AddStriglingMort ( int lifestage )

inline

   {
     m_StriglingMort[lifestage] ++;
   }

Referenced by Skylark_Base::AddStriglingMort().

◆ BreedingPairsOutput()

void Skylark_Population_Manager::BreedingPairsOutput ( int Time )

virtual

Reimplemented from Population_Manager.

                                                                {
   FILE * MyFile = fopen("BreedingPairs.txt", "a" );
   if ( !MyFile ) {
     g_msg->Warn( WARN_FILE, "Skylark_Population_Manager::BreedingPairsOutput():",
          "Cannot open file for append: BreedingPairs.txt" );
     exit( 0 );
   }
   int no=0;
   Skylark_Female * FS;
   int szf = (int)GetLiveArraySize(4);
   int szm = (int)GetLiveArraySize(3);
   for ( int j = 0; j < szf; j++ ) {
     FS = dynamic_cast < Skylark_Female * > ( TheArray[ 4 ] [ j ] );
     if (FS->Paired) {
         // Below is a POM test for farm owner 50 - an identifier used to select a single experimental field or set of fields in the polyref file.
         if (g_land->SupplyFarmOwner(FS->Supply_m_Location_x(), FS->Supply_m_Location_y()) == 50){
             TTypesOfSkState behav = FS->m_CurrentSkState;
             switch(behav) {
                 case toss_BuildingUpResources:
                 case toss_PreparingForBreeding:
                 case toss_MakingNest:
                 case toss_Laying:
                 case toss_EggHatching:
                 case toss_Incubating:
                 case toss_FCaringForYoung:
                     no++;
 //                  g_MainForm->m_aMap->Spot( 3, FS->Supply_m_Location_x(), FS->Supply_m_Location_y() );
                     break;
                 default:
                     ;
             }
         }
     }
   }
   fprintf( MyFile, "%d\t%d\t%d\t%d\n", time, no, szf, szm );
   fclose( MyFile );
 }

References g_land, g_msg, Population_Manager::GetLiveArraySize(), Skylark_Base::m_CurrentSkState, Skylark_Adult::Paired, TAnimal::Supply_m_Location_x(), TAnimal::Supply_m_Location_y(), Landscape::SupplyFarmOwner(), Population_Manager::TheArray, toss_BuildingUpResources, toss_EggHatching, toss_FCaringForYoung, toss_Incubating, toss_Laying, toss_MakingNest, toss_PreparingForBreeding, MapErrorMsg::Warn(), and WARN_FILE.

◆ BreedingSuccessProbeOutput()

void Skylark_Population_Manager::BreedingSuccessProbeOutput	(	double	No,
		int	BreedingFemales,
		int	YoungOfTheYear,
		int	TotalPop,
		int	TotalFemales,
		int	TotalMales,
		int	time,
		int	BreedingAttempts
	)

virtual

Reimplemented from Population_Manager.

                                                                         {
        double BreedingSuccess, HatchSuccess, FledgeSuccess;
        FILE * MyFile = fopen("BreedingSuccess.txt", "a" );
        if ( !MyFile ) {
          g_msg->Warn( WARN_FILE, "Skylark_Population_Manager::BreedingAttemptsOutput():",
               "Cannot open file for append: BreedingAttempts.txt" );
          exit( 0 );
        }
        // Do some calculations
        double floaters = ( TotalPop - ( YoungOfTheYear + ( BreedingFemales * 2 ) ) ) / ( double )( TotalPop - YoungOfTheYear );
        HatchSuccess = m_TotalNestlings / ( double )( m_TotalEggs + 1 );
        FledgeSuccess = m_TotalPrefledgelings / ( double )( m_TotalNestlings + 1 );
        BreedingSuccess = m_TotalPrefledgelings / ( double )( m_TotalEggs + 1 );
        // Print the results and data
        fprintf( MyFile, "%d\t%d\t%d\t%d\t%d\t%d\t%d\t%g\t%g\t%g\t%g\t%g\t\n", time, BreedingFemales, BreedingAttempts, YoungOfTheYear, TotalPop,
             TotalFemales, TotalMales, floaters, No, HatchSuccess, FledgeSuccess, BreedingSuccess );
        //fprintf( MyFile, "%i\t%i\t%i\t%i\n", m_StriglingMort[ 0 ], m_StriglingMort[ 1 ],
        //     m_StriglingMort[ 2 ], m_StriglingMort[ 3 ] );
        for ( int h = 0; h < 4; h++ ) m_StriglingMort[ h ] = 0;
        fclose( MyFile );
        // Zero any counters
        m_TotalEggs = 0;
        m_TotalNestlings = 0;
        m_TotalPrefledgelings = 0;
 }

References g_msg, m_StriglingMort, m_TotalEggs, m_TotalNestlings, m_TotalPrefledgelings, MapErrorMsg::Warn(), and WARN_FILE.

◆ Catastrophe()

void Skylark_Population_Manager::Catastrophe ( void )

protectedvirtual

Reimplemented from Population_Manager.

                                                    {
     // This version simply alters populations on 1st January - it is very dangerous to
     // add individuals in many of the models so beware!!!!
  
     // First do we have the right day?
     int today = m_TheLandscape->SupplyDayInYear();
     if (today!=1) return;
     // First do we have the right year?
     int year = m_TheLandscape->SupplyYearNumber()-m_catastrophestartyear;
     if (year%cfg_pm_eventfrequency.value()!=0) return;
  
     Skylark_Male* MS = NULL; // assignment to get rid of warning
     Skylark_Female* FS = NULL;
     Skylark_Adult* AS = NULL;
     // Now if the % decrease is higher or lower than 100 we need to do different things
     int esize=cfg_pm_eventsize.value();
     if (esize<100) {
         unsigned size2;
         size2 = (int)GetLiveArraySize(sob_Male);;
             for ( unsigned j = 0; j < size2; j++ ) {
                 if (random(100) > esize) {
                         MS = dynamic_cast < Skylark_Male * > ( TheArray[ 3 ] [ j ] );
                         if (MS->MyMate!=NULL) MS->MyMate->OnMateDying();
                         MS->Dying(); // Kill it
                 }
                 }
             size2 = (int)GetLiveArraySize(sob_Female);;
             for ( unsigned j = 0; j < size2; j++ ) {
                 if (random(100) > esize) {
                         FS = dynamic_cast < Skylark_Female * > ( TheArray[ 4 ] [ j ] );
                         if (FS->MyMate!=NULL) FS->MyMate->OnMateDying();
                         FS->Dying(); // Kill it
                 }
                 }
         }
     else if (esize>100) {
         // This is a tricky thing to do because we need to duplicate birds, but dare not mess
         // mate pointers etc up.
         // This also requires a copy method in the target birds
         // esize also needs translating  120 = 20%, 200 = 100%
         if (esize<200) {
             esize-=100;
             for (unsigned i=3; i<5; i++) {
             unsigned size2;
             size2 = (int)GetLiveArraySize(i);
             for ( unsigned j = 0; j < size2; j++ ) {
                 if (random(100) < esize) {
                         AS = dynamic_cast < Skylark_Adult * > ( TheArray[ i ] [ j ] );
                         AS->CopyMyself(i); // Duplicate it
                     }
                 }
                 }
         } else {
             esize-=100;
             esize/=100; // this will throw away fractional parts so will get 1, 2, 3  from 200, 350 400
             for (unsigned i=3; i<5; i++) {
                 unsigned size2;
                 size2 = (int)GetLiveArraySize(i);
                 for ( unsigned j = 0; j < size2; j++ ) {
                     for ( int e=0; e<esize; e++) {
                             AS = dynamic_cast < Skylark_Adult * > ( TheArray[ i ] [ j ] );
                             AS->CopyMyself(i); // Duplicate it
                         }
                 }
             }
         }
         }
     else return; // No change so do nothing
 }

References cfg_pm_eventfrequency, cfg_pm_eventsize, Skylark_Adult::CopyMyself(), TAnimal::Dying(), Population_Manager::GetLiveArraySize(), Population_Manager::m_catastrophestartyear, Population_Manager::m_TheLandscape, Skylark_Female::MyMate, Skylark_Male::MyMate, Skylark_Female::OnMateDying(), Skylark_Male::OnMateDying(), random(), sob_Female, sob_Male, Landscape::SupplyDayInYear(), Landscape::SupplyYearNumber(), Population_Manager::TheArray, and CfgInt::value().

◆ CreateObjects()

void Skylark_Population_Manager::CreateObjects	(	int	ob_type,
		TAnimal *	pTAo,
		void *	null,
		Skylark_struct *	data,
		int	number
	)

                                                                                                                        {
     Skylark_Clutch * New_Clutch;
     Skylark_Nestling * New_Nestling;
     Skylark_PreFledgeling * New_PreFledgeling;
     Skylark_Male * New_Male;
     Skylark_Female * New_Female;
  
     skClutch_struct * cs;
     Nestling_struct * ns;
     PreFledgeling_struct * pfs;
     AdultSkylark_struct * as;
  
     bool aCopy = false;
     if (number == -1) { aCopy = true; number = 1; }
  
     for (int i = 0; i < number; i++) {
 #ifdef __CJTDebug_10
         refnum++;
 #endif
         if (ob_type == 0) {
             cs = dynamic_cast <skClutch_struct *> (data);
             if (unsigned(TheArray[ob_type].size())>GetLiveArraySize(ob_type)) {
                 // We need to reuse an object
                 dynamic_cast<Skylark_Clutch*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(cs->Mum, cs->Terrs, cs->L, cs->No, cs->x, cs->y, cs->mh, this);
                 cs->Mum->OnSetMyClutch(dynamic_cast<Skylark_Clutch*>(TheArray[ob_type][GetLiveArraySize(ob_type)]));
                 IncLiveArraySize(ob_type);
             }
             else {
                 New_Clutch = new Skylark_Clutch(cs->Mum, cs->Terrs, cs->L, cs->No, cs->x, cs->y, cs->mh, this);
                 TheArray[ob_type].push_back(New_Clutch);
                 IncLiveArraySize(ob_type);
                 // Give mum the pointer to the clutch
                 cs->Mum->OnSetMyClutch(New_Clutch);
             }
 #ifdef __CJTDebug_10
             New_Clutch->m_Ref = refnum;
 #endif
         }
         if (ob_type == 1) {
             ns = dynamic_cast <Nestling_struct *> (data);
             if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                 // We need to reuse an object
                 dynamic_cast<Skylark_Nestling*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(ns->x, ns->y, ns->Dad, ns->L, ns->Terrs, this, ns->bx, ns->by, ns->mh);
                 // Give Dad a pointer to nestling
                 ns->Dad->OnAddNestling(dynamic_cast<Skylark_Nestling*>(TheArray[ob_type][GetLiveArraySize(ob_type)]));
                 IncLiveArraySize(ob_type);
             }
             else {
                 New_Nestling = new Skylark_Nestling(ns->x, ns->y, ns->Dad, ns->L, ns->Terrs, this, ns->bx, ns->by, ns->mh);
                 TheArray[ob_type].push_back(New_Nestling);
                 IncLiveArraySize(ob_type);
                 // Give Dad a pointer to nestling
                 ns->Dad->OnAddNestling(New_Nestling);
             }
             // Count this as a chick hatched
             m_TotalNestlings++;
 #ifdef __CJTDebug_10
             New_Nestling->m_Ref = refnum;
 #endif
         }
         if (ob_type == 2) {
             pfs = dynamic_cast <PreFledgeling_struct *> (data);
             if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                 // We need to reuse an object
                 dynamic_cast<Skylark_PreFledgeling*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(pfs->x, pfs->y, pfs->L, pfs->Terrs, pfs->Dad, pfs->sex, pfs->size, pfs->age, this,
                     pfs->bx, pfs->by, pfs->mh);
                 if (pfs->Dad) pfs->Dad->OnAddPreFledgeling(dynamic_cast<Skylark_PreFledgeling*>(TheArray[ob_type][GetLiveArraySize(ob_type)]), (Skylark_Nestling *)pTAo);
                 IncLiveArraySize(ob_type);
             }
             else {
                 New_PreFledgeling = new
                     Skylark_PreFledgeling(pfs->x, pfs->y, pfs->L, pfs->Terrs, pfs->Dad, pfs->sex, pfs->size, pfs->age, this,
                     pfs->bx, pfs->by, pfs->mh);
  
                 TheArray[ob_type].push_back(New_PreFledgeling);
                 IncLiveArraySize(ob_type);
                 if (pfs->Dad) pfs->Dad->OnAddPreFledgeling(New_PreFledgeling, (Skylark_Nestling *)pTAo);
             }
             // Count this as a nest leaver
             m_TotalPrefledgelings++;
         }
         if (ob_type == 3) {
             as = dynamic_cast <AdultSkylark_struct *> (data);
             // Male
             if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                 // We need to reuse an object
                 dynamic_cast<Skylark_Male*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
                 IncLiveArraySize(ob_type);
             }
             else {
                 New_Male = new Skylark_Male(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
                 if (aCopy) New_Male->SensibleCopy();
                 TheArray[ob_type].push_back(New_Male);
                 IncLiveArraySize(ob_type);
             }
 #ifdef __CJTDebug_10
             New_Male->m_Ref = refnum;
 #endif
         }
         if (ob_type == 4) {
             as = dynamic_cast <AdultSkylark_struct *> (data);
             // Female
             if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                 // We need to reuse an object
                 dynamic_cast<Skylark_Female*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
                 IncLiveArraySize(ob_type);
             }
             else {
                 New_Female = new Skylark_Female(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
                 if (aCopy) New_Female->SensibleCopy();
                 TheArray[ob_type].push_back(New_Female);
                 IncLiveArraySize(ob_type);
             }
 #ifdef __CJTDebug_10
             New_Female->m_Ref = refnum;
 #endif
         }
     }
 }

References PreFledgeling_struct::age, AdultSkylark_struct::age, Skylark_struct::bx, Skylark_struct::by, Nestling_struct::Dad, PreFledgeling_struct::Dad, Population_Manager::GetLiveArraySize(), Population_Manager::IncLiveArraySize(), Skylark_struct::L, m_TotalNestlings, m_TotalPrefledgelings, Skylark_struct::mh, skClutch_struct::Mum, skClutch_struct::No, Skylark_Male::OnAddNestling(), Skylark_Male::OnAddPreFledgeling(), Skylark_Female::OnSetMyClutch(), Skylark_Female::SensibleCopy(), Skylark_Male::SensibleCopy(), PreFledgeling_struct::sex, PreFledgeling_struct::size, AdultSkylark_struct::size, Skylark_struct::Terrs, Population_Manager::TheArray, Skylark_struct::x, and Skylark_struct::y.

Referenced by Skylark_Adult::CopyMyself(), Init(), Skylark_Clutch::st_Hatching(), Skylark_Female::st_Laying(), Skylark_Nestling::st_Maturing(), and Skylark_PreFledgeling::st_Maturing().

◆ DoFirst()

void Skylark_Population_Manager::DoFirst ( void )

protectedvirtual

Can be used in descendent classes

Reimplemented from Population_Manager.

                                                {
     //printf("Day %d  Terrs: %d  Occupied M/F %d/%d\n",g_date->DayInYear(),TheSkylarkTerrs->SupplyNoTerritories(), TheSkylarkTerrs->SupplyNoMaleOccupied(), TheSkylarkTerrs->SupplyNoFemaleOccupied());
     // Bad weather criteria - not used as of 24 June 2009 because removing this had no impacts on the observed POM testing.
     if ((g_weather->GetRain()>0.0) && (g_weather->GetWindPeriod(g_date->Date(),7)>45.0) && (g_weather->GetTempPeriod(g_date->Date(),7)<40.0) ) m_IsBadWeather=true; else m_IsBadWeather=false;
     TheSkylarkTerrs->Tick();
     double temp = m_TheLandscape->SupplyTemp();
     EMi = ( 31.2 - ( 0.44 * temp ) );
     int today = m_TheLandscape->SupplyDayInYear();
     if ( today == January ) {
         for ( int h = 0; h < 4; h++ ) m_StriglingMort[ h ] = 0;
         TheSkylarkTerrs->PreProcessLandscape2( m_TheLandscape );
         // Now re-house any males that already had territories
         //ReHouse(); // Only needed if PreProcessLandsape2 is called after arrival
         // Determine this years mortality
         F_Mig_Mort = cfg_adultreturnmort.value(); //F_Mig_Mort_min + random( F_Mig_Mort_max - F_Mig_Mort_min );
         //     F_Mig_Mort=50;
         //assume that male and female mortality is equal
         M_Mig_Mort = F_Mig_Mort;
         //M_Mig_Mort = M_Mig_Mort_min + random( M_Mig_Mort_max - M_Mig_Mort_min );
         //     F_Mig_Mort=F_Mig_Mort_min+random(F_Mig_Mort_max-F_Mig_Mort_min);
         // **CJT** testing code below
         FILE* MyFile=fopen( "PestEffects.txt", "a" );
         fprintf( MyFile, "%d %d %d\n", m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects );
         fclose( MyFile );
         m_NoFledgeDeaths = 0;
         m_NoChickDeaths = 0;
         m_NoPestEffects = 0;
 }
  
 #ifdef __SKPOM
     // Skylark POM outputs
 #ifdef __KALONOSCRAPES
     /* USE FOR KALO & NO SCRAPES */
 switch (today) {
         case 70:
             return ProbeReportPOM( today );
             break;
         case 80:
             return ProbeReportPOM( today );
             break;
         case 89:
             return ProbeReportPOM( today );
             break;
         case 99:
             return ProbeReportPOM( today );
             break;
         case 115:
             return ProbeReportPOM( today );
             break;
         case 123:
             return ProbeReportPOM( today );
             break;
         case 130:
             return ProbeReportPOM( today );
             break;
         case 140:
             return ProbeReportPOM( today );
             break;
         case 147:
             return ProbeReportPOM( today );
             break;
         case 153:
             return ProbeReportPOM( today );
             break;
         case 160:
             return ProbeReportPOM( today );
             break;
         case 168:
             return ProbeReportPOM( today );
             break;
         case 177:
             return ProbeReportPOM( today );
             break;
         case 185:
             return ProbeReportPOM( today );
             break;
         case 192:
             return ProbeReportPOM( today );
             break;
         case 200:
             return ProbeReportPOM( today );
             break;
         case 209:
             return ProbeReportPOM( today );
             break;
         default: ;
     }
 #else
 #ifdef __KALOSCRAPES
 /* USE FOR KALO &  SCRAPES */
 switch (today) {
         case 67:
             return ProbeReportPOM( today );
             break;
         case 70:
             return ProbeReportPOM( today );
             break;
         case 80:
             return ProbeReportPOM( today );
             break;
         case 89:
             return ProbeReportPOM( today );
             break;
         case 99:
             return ProbeReportPOM( today );
             break;
         case 113:
             return ProbeReportPOM( today );
             break;
         case 125:
             return ProbeReportPOM( today );
             break;
         case 130:
             return ProbeReportPOM( today );
             break;
         case 131:
             return ProbeReportPOM( today );
             break;
         case 140:
             return ProbeReportPOM( today );
             break;
         case 147:
             return ProbeReportPOM( today );
             break;
         case 153:
             return ProbeReportPOM( today );
             break;
         case 162:
             return ProbeReportPOM( today );
             break;
         case 169:
             return ProbeReportPOM( today );
             break;
         case 178:
             return ProbeReportPOM( today );
             break;
         case 183:
             return ProbeReportPOM( today );
             break;
         default: ;
     }
 #else
     switch (today) {
         case 105:
             return ProbeReportPOM( today );
             break;
         case 119:
             return ProbeReportPOM( today );
             break;
         case 133:
             return ProbeReportPOM( today );
             break;
         case 147:
             return ProbeReportPOM( today );
             break;
         case 162:
             return ProbeReportPOM( today );
             break;
         case 177:
             return ProbeReportPOM( today );
             break;
         case 192:
             return ProbeReportPOM( today );
             break;
         case 207:
             return ProbeReportPOM( today );
             break;
         default: ;
     }
 #endif
  
 #endif
  
 #endif
     //Sigh, everyday we need to update the territory qualities, but at least it only needs doing here!
     TheSkylarkTerrs->EvaluateAllTerritories();
 }

References cfg_adultreturnmort, Calendar::Date(), EMi, SkTerritories::EvaluateAllTerritories(), F_Mig_Mort, g_date, g_weather, Weather::GetRain(), Weather::GetTempPeriod(), Weather::GetWindPeriod(), January, m_IsBadWeather, M_Mig_Mort, m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects, m_StriglingMort, Population_Manager::m_TheLandscape, SkTerritories::PreProcessLandscape2(), ProbeReportPOM(), Landscape::SupplyDayInYear(), Landscape::SupplyTemp(), TheSkylarkTerrs, SkTerritories::Tick(), and CfgInt::value().

◆ FledgelingProbeOutput()

void Skylark_Population_Manager::FledgelingProbeOutput	(	int	Total,
		int	Time
	)

virtual

Reimplemented from Population_Manager.

                                                                             {
     FILE * MyFile = fopen("SkFledgelingProbe.txt", "a" );
     if ( !MyFile ) {
         g_msg->Warn( WARN_FILE, "Skylark_Population_Manager::FledgelingProbeOutput():",
              "Cannot open file for append: SkFledgelingProbe.txt" );
         exit( 0 );
     }
     fprintf( MyFile, "%8d %6d", time, Total );
     // Now get the areas
     for ( int i = 0; i <= tov_Undefined; i++ )
         fprintf( MyFile, " %3d %5d %9.0f", i, VegTypeFledgelings[ i ], m_TheLandscape->GetVegArea( i ) );
     fprintf( MyFile, "\n" );
     fclose( MyFile );
     // Data for the FledgelingProbe needs clearing
     for ( int i = 0; i < 100; i++ ) {
         VegTypeFledgelings[ i ] = 0;
     }
 }

References g_msg, Landscape::GetVegArea(), Population_Manager::m_TheLandscape, tov_Undefined, VegTypeFledgelings, MapErrorMsg::Warn(), and WARN_FILE.

◆ incNoChickDeaths()

void Skylark_Population_Manager::incNoChickDeaths ( )

inline

   {
     m_NoChickDeaths++;
   }

◆ incNoFledgeDeaths()

void Skylark_Population_Manager::incNoFledgeDeaths ( )

inline

   {
     m_NoFledgeDeaths++;
   }

◆ incNoPestEffects()

void Skylark_Population_Manager::incNoPestEffects ( )

inline

   {
     m_NoPestEffects++;
   }

◆ incTotalEggs()

void Skylark_Population_Manager::incTotalEggs ( int eggs )

inline

   {
     m_TotalEggs+=eggs;
   }

◆ incTotalNestlings()

void Skylark_Population_Manager::incTotalNestlings ( )

inline

   {
     m_TotalNestlings++;
   }

◆ incTotalPrefledgelings()

void Skylark_Population_Manager::incTotalPrefledgelings ( )

inline

   {
     m_TotalPrefledgelings++;
   }

◆ Init()

void Skylark_Population_Manager::Init ( void )

virtual

                                             {
   if ( cfg_RipleysOutput_used.value() ) {
     OpenTheRipleysOutputProbe("");
   }
   LoadParameters();
   // autom. called by constructor
   strcpy( m_SimulationName, "Skylark" );
   // Create 100 male and female skylarks
   AdultSkylark_struct * aps;
   aps = new AdultSkylark_struct;
   aps->size = 38;
   aps->Terrs = TheSkylarkTerrs;
   aps->L = m_TheLandscape;
   g_land = m_TheLandscape;
   aps->sex = true;
  
  
  
   for ( int i = 0; i < cfg_SkStartNos.value(); i++ ) {
     aps->x = random( m_TheLandscape->SupplySimAreaWidth() );
     aps->y = random( m_TheLandscape->SupplySimAreaHeight() );
     aps->bx = aps->x;
     aps->by = aps->y;
     aps->age = random( 5 );
     aps->mh = tov_Undefined;
     CreateObjects( 3, NULL, NULL, aps, 1 );
   }
   aps->sex = false;
   for ( int i = 0; i < cfg_SkStartNos.value(); i++ ) {
     aps->x = random( m_TheLandscape->SupplySimAreaWidth() );
     aps->y = random( m_TheLandscape->SupplySimAreaHeight() );
     aps->bx = aps->x;
     aps->by = aps->y;
     aps->age = random( 5 );
     aps->mh = tov_Undefined;
     CreateObjects( 4, NULL, NULL, aps, 1 );
   }
   delete aps;
  
  
   // Load List of Animal Classes
   m_ListNames[ 0 ] = "Clutch";
   m_ListNames[ 1 ] = "Nestling";
   m_ListNames[ 2 ] = "Pre-Fledgeling";
   m_ListNames[ 3 ] = "Male";
   m_ListNames[ 4 ] = "Female";
   m_ListNameLength = 5;
   m_population_type = TOP_Skylark;
  
   // Load State Names
   StateNames[ toss_Initiation ] = "Initiation";
   //Clutch
   StateNames[ toss_Developing ] = "CDeveloping";
   StateNames[ toss_Hatching ] = "CHatching";
   StateNames[ toss_CDying ] = "CDying";
   //Nestling
   StateNames[ toss_NDeveloping ] = "NDeveloping";
   StateNames[ toss_NMaturing ] = "NMaturing";
   StateNames[ toss_NDying ] = "NDying";
   //PreFledgeling
   StateNames[ toss_PDeveloping ] = "PDeveloping";
   StateNames[ toss_PMaturing ] = "PMaturing";
   StateNames[ toss_PDying ] = "PDying";
   //MaleSK
   StateNames[ toss_MFlocking ] = "MFlocking";
   StateNames[ toss_MFloating ] = "MFloating";
   StateNames[ toss_MArriving ] = "MArriving";
   StateNames[ toss_MImmigrating ] = "MImmigrating";
   StateNames[ toss_MEmigrating ] = "MEmigrating";
   StateNames[ toss_MTempLeavingArea ] = "MTempLeavingArea";
   StateNames[ toss_MFindingTerritory ] = "MFindingTerritory";
   StateNames[ toss_AttractingAMate ] = "MAttractingAMate";
   StateNames[ toss_FollowingMate ] = "MFollowingMate";
   StateNames[ toss_ScaringOffChicks ] = "MScaringOffChicks";
   StateNames[ toss_MCaringForYoung ] = "MCaringForYoung";
   StateNames[ toss_MDying ] = "MDying";
   //FemaleSK
   StateNames[ toss_FFlocking ] = "FFlocking";
   StateNames[ toss_FFloating ] = "FFloating";
   StateNames[ toss_FArriving ] = "FArriving";
   StateNames[ toss_FImmigrating ] = "FImmigrating";
   StateNames[ toss_FEmigrating ] = "FEmigrating";
   StateNames[ toss_FTempLeavingArea ] = "FTempLeavingArea";
   StateNames[ toss_FFindingTerritory ] = "FFindingTerritory";
   StateNames[ toss_BuildingUpResources ] = "FBuildingUpResources";
   StateNames[ toss_MakingNest ] = "FMakingNest";
   StateNames[ toss_PreparingForBreeding ] = "FPreparingForBreeding";
   StateNames[ toss_Laying ] = "FLaying";
   StateNames[ toss_StartingNewBrood ] = "FStartingNewBrood";
   StateNames[ toss_EggHatching ] = "FEggHatching";
   StateNames[ toss_Incubating ] = "FIncubating";
   StateNames[ toss_StoppingBreeding ] = "FStoppingBreeding";
   StateNames[ toss_FCaringForYoung ] = "FCaringForYoung";
   StateNames[ toss_FDying ] = "FDying";
   StateNames[ toss_GivingUpTerritory ] = "FGivingUpTerritory";
   StateNames[ toss_Destroy ] = "Being Destroyed";
   // determine whether we should shuffle, or sort or do nothing to skylarks
   // after each time step.
   BeforeStepActions[ 0 ] = 3; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
   BeforeStepActions[ 1 ] = 3; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
   BeforeStepActions[ 2 ] = 3; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
   BeforeStepActions[ 3 ] = 0; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
   BeforeStepActions[ 4 ] = 0; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
   // Zero any counters
   m_TotalEggs = 0;
   m_TotalNestlings = 0;
   m_TotalPrefledgelings = 0;
   m_NoFledgeDeaths = 0;
   m_NoChickDeaths = 0;
   m_NoPestEffects = 0;
  
   if ( cfg_ReallyBigOutput_used.value() ) {
     OpenTheReallyBigProbe();
   } else ReallyBigOutputPrb=0;
 #ifdef __SKPOM
   SKPOM1 = fopen( "SkylarkPOM1.txt", "w" );
   SKPOM2 = fopen( "SkylarkPOM2.txt", "w" );
 #endif
 }

Referenced by Skylark_Population_Manager().

◆ IsBadWeather()

bool Skylark_Population_Manager::IsBadWeather ( )

inline

                       {
     return m_IsBadWeather;
   }

◆ LoadParameters()

void Skylark_Population_Manager::LoadParameters ( void )

protected

                                                       {
   IsTramline = cfg_tramline_foraging.value();
   NotTramline = 1 - IsTramline;
  
  
   HQualityOpenTallVeg = cfg_HQualityOpenTallVeg.value();
   HQualityTall = cfg_HQualityTall.value();
   HQualityTall2 = cfg_HQualityTall2.value();
   HQualityTrack = cfg_HQualityTrack.value();
   HQualityMetalRoad = cfg_HQualityMetalRoad.value();
   HQualityHedgeScrub = cfg_HQualityHedgeScrub.value();
   HQualityNeutral = cfg_HQualityNeutral.value();
   HQualityHedge = cfg_HQualityHedge.value();
   HQualityTallVeg = cfg_HQualityTallVeg.value();
   HQualityWater = cfg_HQualityWater.value();
   HQualityVeg30cm = cfg_HQualityVeg30cm.value();
   HQualityBareEarth = cfg_HQualityBareEarth.value();
   PatchyPremium = cfg_PatchyPremium.value();
   FemaleNestAcceptScore = cfg_FemaleMinTerritoryAcceptScore.value();
   NestPlacementMinQual = cfg_NestPlacementMinQual.value();
   MaxFeedRain = cfg_maxfeedrain.value(); //Estimate of really serious amount of rain
  
   NestLeavingWeight = cfg_NestLeavingWeight.value();
   ClutchMortProb = cfg_ClutchMortProb.value();
   NestlingMortProb = cfg_NestlingMortProb.value();
   PreFledgeMortProb = cfg_PreFledgeMortProb.value();
   MeanHatchingWeight = cfg_MeanHatchingWeight.value();
   Cooling_Rate_Eggs = cfg_Cooling_Rate_Eggs.value();
   EggTemp = cfg_EggTemp.value(); //was 37
   MD_Threshold = cfg_MD_Threshold.value(); // was 12
   MeanExtractionRatePerMinute = cfg_MeanExtractionRatePerMinute.value(); //Fitting parameter
   FoodTripsPerDay = cfg_FoodTripsPerDay.value(); // Poulsen
   MD_Hatch = cfg_MinDaysToHatch.value() * 24 * 60 * ( EggTemp - MD_Threshold ); // 9.8 fastest development from field data
   //MD_Hatch = cfg_MinDaysToHatch.value() * 24 * 60;
   Breed_Res_Thresh1 = cfg_Breed_Res_Thresh1.value();
  
   for ( int h = 0; h <= 110; h++ ) {
     DensityScore[ h ] = 0.0;
     VegHindranceD[ h ] = 1.0;
     HeightScore[ h ] = 0.0;
     VegHindranceH[ h ] = 1.0;
   }
   // Vegetation hindrance is made up of two parts - a densithy and height part
   // Each a linear after a threshold level, down to another threshold (zero)
  
   double threshold = cfg_heightconstant_c.value();
   for ( int h = (int) threshold; h <= 110; h++ ) {
     VegHindranceH[ h ] = 1 + h * cfg_hindconstantH_b.value();
     if ( VegHindranceH[ h ] <= 0 ) VegHindranceH[ h ] = 0;
   }
   threshold = cfg_densityconstant_c.value();
   for ( int d = (int) threshold; d <= 110; d++ ) {
     VegHindranceD[ d ] =1 + d * cfg_hindconstantD_b.value();
     if ( VegHindranceD[ d ] <= 0 ) VegHindranceD[ d ] = 0;
   }
  
   // The next two arrays are related to nest choice
   threshold = cfg_densityconstant_c.value();
   for ( int h = (int) threshold; h <= 110; h++ ) {
     // Power function
     // DensityScore[ h ] = cfg_densityconstant_a.value() * pow( h - ( threshold - 1 ), cfg_densityconstant_b.value() );
     // Linear
     DensityScore[ h ] = cfg_densityconstant_a.value() + (( h - threshold )*( h - threshold ) * cfg_densityconstant_b.value());
     // Catch all just in case:
     //if ( DensityScore[ h ] < 0 ) DensityScore[ h ] = 0;
   }
   threshold = cfg_heightconstant_c.value();
   for ( int h = (int) threshold; h <= 110; h++ ) {
     // Power function
     //double hh = cfg_heightconstant_a.value() * pow( h - ( threshold - 1 ), cfg_heightconstant_b.value() );
     //HeightScore[ h ] = hh - ( 1 - hh ); // This expands the range of the curve
     // Linear
     HeightScore[ h ] = cfg_heightconstant_a.value() + ( h - threshold ) * cfg_heightconstant_b.value();
     // Catch all just in case:
     //if ( HeightScore[ h ] < 0 ) HeightScore[ h ] = 0;
   }
   for ( int i = 0; i <= 30; i++ ) {
     //    TempHindrance[ i ] =  (1-( pow( 30 - i, cfg_temphindpow.value() ) / pow( 30, cfg_temphindpow.value() ) ));
     if ( i > 20 ) TempHindrance[ i ] = 1.0; else
       TempHindrance[ i ] = 0.0
            + ( 1.0 * ( 1 - ( pow( (double) 20 - i, (double) cfg_temphindpow.value() ) / pow( (double) 20, (double) cfg_temphindpow.value() ) ) ) );
   }
   for ( int i = 0; i <= 10; i++ ) {
       RainHindrance[ i ] =  pow( (double) 10 - i, (double) cfg_rainhindpow.value() ) / (double) pow( (double) 10.0, (double) cfg_rainhindpow.value() );
   }
   // Data for the FledgelingProbe
   for ( int i = 0; i < 100; i++ ) VegTypeFledgelings[ i ] = 0;
  
   m_NoFledgeDeaths = 0;
   m_NoChickDeaths = 0;
   m_NoPestEffects = 0;
   FILE * MyFile = fopen( "PestEffects.txt", "w" );
   fclose( MyFile );
   OpenTheBreedingSuccessProbe();
 }

References Breed_Res_Thresh1, cfg_Breed_Res_Thresh1, cfg_ClutchMortProb, cfg_Cooling_Rate_Eggs, cfg_densityconstant_a, cfg_densityconstant_b, cfg_densityconstant_c, cfg_EggTemp, cfg_FemaleMinTerritoryAcceptScore, cfg_FoodTripsPerDay, cfg_heightconstant_a, cfg_heightconstant_b, cfg_heightconstant_c, cfg_hindconstantD_b, cfg_hindconstantH_b, cfg_HQualityBareEarth, cfg_HQualityHedge, cfg_HQualityHedgeScrub, cfg_HQualityMetalRoad, cfg_HQualityNeutral, cfg_HQualityOpenTallVeg, cfg_HQualityTall, cfg_HQualityTall2, cfg_HQualityTallVeg, cfg_HQualityTrack, cfg_HQualityVeg30cm, cfg_HQualityWater, cfg_maxfeedrain, cfg_MD_Threshold, cfg_MeanExtractionRatePerMinute, cfg_MeanHatchingWeight, cfg_MinDaysToHatch, cfg_NestLeavingWeight, cfg_NestlingMortProb, cfg_NestPlacementMinQual, cfg_PatchyPremium, cfg_PreFledgeMortProb, cfg_rainhindpow, cfg_temphindpow, cfg_tramline_foraging, ClutchMortProb, Cooling_Rate_Eggs, DensityScore, EggTemp, FemaleNestAcceptScore, FoodTripsPerDay, HeightScore, HQualityBareEarth, HQualityHedge, HQualityHedgeScrub, HQualityMetalRoad, HQualityNeutral, HQualityOpenTallVeg, HQualityTall, HQualityTall2, HQualityTallVeg, HQualityTrack, HQualityVeg30cm, HQualityWater, IsTramline, m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects, MaxFeedRain, MD_Hatch, MD_Threshold, MeanExtractionRatePerMinute, MeanHatchingWeight, NestLeavingWeight, NestlingMortProb, NestPlacementMinQual, NotTramline, OpenTheBreedingSuccessProbe(), PatchyPremium, PreFledgeMortProb, RainHindrance, TempHindrance, CfgInt::value(), CfgFloat::value(), VegHindranceD, VegHindranceH, and VegTypeFledgelings.

Referenced by Init().

◆ OpenTheBreedingPairsProbe()

bool Skylark_Population_Manager::OpenTheBreedingPairsProbe ( )

virtual

Reimplemented from Population_Manager.

                                                            {
   FILE * MyFile = fopen("BreedingPairs.txt", "w" );
   if ( !MyFile ) {
     g_msg->Warn( WARN_FILE, "Skylark_Population_Manager::FledgelingProbeOutput():",
          "Cannot open file: BreedingPairs.txt" );
     exit( 0 );
   }
   fclose(MyFile);
   return true;
 }

References g_msg, MapErrorMsg::Warn(), and WARN_FILE.

◆ OpenTheBreedingSuccessProbe()

bool Skylark_Population_Manager::OpenTheBreedingSuccessProbe ( )

virtual

Reimplemented from Population_Manager.

                                                              {
   FILE * MyFile = fopen("BreedingSuccess.txt", "w" );
   if ( !MyFile ) {
     g_msg->Warn( WARN_FILE, "Skylark_Population_Manager::FledgelingProbeOutput():",
          "Cannot open file: BreedingSuccess.txt" );
     exit( 0 );
   }
   fclose(MyFile);
   return true;
 }

References g_msg, MapErrorMsg::Warn(), and WARN_FILE.

Referenced by LoadParameters().

◆ OpenTheFledgelingProbe()

bool Skylark_Population_Manager::OpenTheFledgelingProbe ( )

virtual

Reimplemented from Population_Manager.

                                                         {
   FILE * MyFile = fopen("SkFledgelingProbe.txt", "w" );
   if ( !MyFile ) return false;
   FILE * MyFile2 = fopen("TOV_KeyForFledgelingProbe.txt", "w" );
   if ( !MyFile2 ) return false;
   fprintf( MyFile2, "This is the tov to veg-type key\n" );
   int howMany = ( int )tov_Undefined;
   for ( int i = 0; i <= howMany; i++ ) {
     fprintf( MyFile2, "%d %s\n", i, (m_TheLandscape->VegtypeToString( (TTypesOfVegetation) i )).c_str());
   }
   fclose( MyFile );
   fclose( MyFile2 );
   return false;
 }

References Population_Manager::m_TheLandscape, tov_Undefined, and Landscape::VegtypeToString().

◆ ProbePOM()

float Skylark_Population_Manager::ProbePOM	(	int	ListIndex,
		probe_data *	p_TheProbe
	)

protected

Modified probe for POM Output.

                                                                                    {
     // Counts through the list and goes through each area to see if the animal
     // is standing there and if the farm conditions are met
     float NumberSk = 0;
     if (ListIndex==4) {
     if ( p_TheProbe->m_NoFarms != 0 ) {
         for (unsigned j = 0; j < GetLiveArraySize(ListIndex); j++) {
             unsigned Farm = TheArray[ ListIndex ] [ j ]->SupplyFarmOwnerRef();
             for ( unsigned k = 0; k < p_TheProbe->m_NoFarms; k++ ) {
                 if ( p_TheProbe->m_RefFarms[ k ] == Farm ) {
                     Skylark_Female * FS;
                     FS = dynamic_cast < Skylark_Female * > ( TheArray[ ListIndex ] [ j ] );
                     TTypesOfSkState state = (TTypesOfSkState) FS->WhatState();
                     switch (state) {
                         case toss_MakingNest:
                         case toss_PreparingForBreeding:
                         case toss_Laying:
                         case toss_StartingNewBrood:
                         case toss_EggHatching:
                         case toss_Incubating:
                         case toss_FCaringForYoung:
                             NumberSk++; // it is in the square so increment number
                     default:
                         ;
                     }
                 }
             }
         }
     }
     }
     else if (ListIndex==3)
     {
         if ( p_TheProbe->m_NoFarms != 0 )
         {
             for (unsigned j = 0; j < GetLiveArraySize(ListIndex); j++)
             {
                 unsigned Farm = TheArray[ ListIndex ] [ j ]->SupplyFarmOwnerRef();
                 for ( unsigned k = 0; k < p_TheProbe->m_NoFarms; k++ )
                 {
                     if ( p_TheProbe->m_RefFarms[ k ] == Farm )
                     {
                         Skylark_Male * MS;
                         MS = dynamic_cast < Skylark_Male * > ( TheArray[ ListIndex ] [ j ] );
                         if (MS->HaveTerritory) NumberSk++;// it is in the square so increment number
                     }
                 }
             }
         }
     }
     return NumberSk;
 }

References Population_Manager::GetLiveArraySize(), Skylark_Male::HaveTerritory, probe_data::m_NoFarms, probe_data::m_RefFarms, Population_Manager::TheArray, toss_EggHatching, toss_FCaringForYoung, toss_Incubating, toss_Laying, toss_MakingNest, toss_PreparingForBreeding, toss_StartingNewBrood, and Skylark_Base::WhatState().

Referenced by ProbeReportPOM().

◆ ProbeReportPOM()

void Skylark_Population_Manager::ProbeReportPOM ( int a_time )

protected

                                                             {
     for ( int ProbeNo = 0; ProbeNo < m_NoProbes; ProbeNo++ ) {
         int No = 0;
         unsigned Index = SupplyListIndexSize();
         for ( unsigned listindex = 0; listindex < Index; listindex++ ) {
             if ( TheProbe[ ProbeNo ]->m_TargetTypes[ listindex ] ) No += (int) ProbePOM( listindex, TheProbe[ ProbeNo ] );
         }
         TheProbe[ ProbeNo ]->FileOutput( No, a_time, ProbeNo );
     }
 }

References probe_data::FileOutput(), Population_Manager::m_NoProbes, ProbePOM(), Population_Manager::SupplyListIndexSize(), and Population_Manager::TheProbe.

Referenced by DoFirst().

◆ ReHouse()

void Skylark_Population_Manager::ReHouse ( void )

protectedvirtual

                                               {
     Skylark_Male* MS = NULL; // assignment to get rid of warning
     unsigned size = (unsigned)GetLiveArraySize(sob_Male);
     for ( unsigned j = 0; j < size; j++ ) {
         MS = dynamic_cast < Skylark_Male * > (TheArray[sob_Male][j]);
             if (MS->HaveTerritory) {
                 MS->OnReHouse();
         }
     }
 }

References Population_Manager::GetLiveArraySize(), Skylark_Male::HaveTerritory, Skylark_Male::OnReHouse(), sob_Male, and Population_Manager::TheArray.

◆ SetF_Mig_Mort()

void Skylark_Population_Manager::SetF_Mig_Mort ( int m )

inline

   {
     F_Mig_Mort = m;
   }

◆ SetM_Mig_Mort()

void Skylark_Population_Manager::SetM_Mig_Mort ( int m )

inline

   {
     M_Mig_Mort = m;
   }

◆ SupplyEMi()

double Skylark_Population_Manager::SupplyEMi ( )

inline

   {
     return EMi;
   }

Referenced by Skylark_PreFledgeling::GetFledgelingEM(), Skylark_PreFledgeling::GetFood(), Skylark_Adult::RemoveEM(), and Skylark_Female::st_Incubating().

◆ SupplyF_Mig_Mort()

int Skylark_Population_Manager::SupplyF_Mig_Mort ( )

inline

   {
     return F_Mig_Mort;
   }

Referenced by Skylark_Female::GetMigrationMortality().

◆ SupplyM_Mig_Mort()

int Skylark_Population_Manager::SupplyM_Mig_Mort ( )

inline

   {
     return M_Mig_Mort;
   }

Referenced by Skylark_Male::GetMigrationMortality().

◆ SupplyNoTerritories()

int Skylark_Population_Manager::SupplyNoTerritories ( )

                                                     {
   return TheSkylarkTerrs->SupplyNoTerritories();
 }

References SkTerritories::SupplyNoTerritories(), and TheSkylarkTerrs.

◆ TheAOROutputProbe()

void Skylark_Population_Manager::TheAOROutputProbe ( )

virtual

This method must be overridden in descendent classes

Reimplemented from Population_Manager.

                                                    {
     m_AOR_Probe->DoProbe(sob_Female);
 }

References AOR_Probe::DoProbe(), Population_Manager::m_AOR_Probe, and sob_Female.

◆ TheBreedingFemalesProbe()

int Skylark_Population_Manager::TheBreedingFemalesProbe ( int ProbeNo )

virtual

Reimplemented from Population_Manager.

                                                                {
   int NumberSk = 0;
   Skylark_Male * MS;
   for (unsigned j = 0; j < GetLiveArraySize(3); j++) {
     MS = dynamic_cast < Skylark_Male * > ( TheArray[ 3 ] [ j ] );
     /* for (unsigned i=0; i<TheProbe[ProbeNo]->m_NoAreas; i++) { if ((MS->m_Born_x>=(int)TheProbe[ProbeNo]->m_Rect[i].m_x1)
     && (MS->m_Born_y>=(int)TheProbe[ProbeNo]->m_Rect[i].m_y1) && (MS->m_Born_x<(int)TheProbe[ProbeNo]->m_Rect[i].m_x2)
     && (MS->m_Born_y<(int)TheProbe[ProbeNo]->m_Rect[i].m_y2) && (MS->Paired==true) && (MS->HaveTerritory==true))
     NumberSk++; // it is in the square so increment number } */
     if ( ( MS->Paired == true ) && ( MS->HaveTerritory == true ) )
       NumberSk++; // it is in the square so increment number
   }
   return NumberSk;
 }

References Population_Manager::GetLiveArraySize(), Skylark_Male::HaveTerritory, Skylark_Adult::Paired, and Population_Manager::TheArray.

◆ TheBreedingSuccessProbe()

int Skylark_Population_Manager::TheBreedingSuccessProbe	(	int &	BreedingFemales,
		int &	YoungOfTheYear,
		int &	TotalPop,
		int &	TotalFemales,
		int &	TotalMales,
		int &	BreedingAttempts
	)

virtual

Reimplemented from Population_Manager.

                                                                     {
        int NumberA = 0;
        int HowMany = 0;
        BreedingAttempts = 0;
        Skylark_Female * FS;
        unsigned sz = (int)GetLiveArraySize(4);
        for ( unsigned j = 0; j < sz; j++ ) {
          FS = dynamic_cast < Skylark_Female * > ( TheArray[ 4 ] [ j ] );
          int success = FS->Supply_BreedingSuccess();
 #ifdef __HazelParry1
          if ( success >0 ) {
            NumberA += success;
            HowMany++;
            FS->ResetBreedingSuccess();
          }
 #else
          if ( success != -1 ) {
            NumberA += success;
            HowMany++;
          }
 #endif
          BreedingAttempts += FS->Supply_BreedingAttempts();
        }
        BreedingFemales = HowMany;
        TotalFemales = sz;
        TotalMales = (int)GetLiveArraySize(3);
        YoungOfTheYear = TheFledgelingProbe();
        TotalPop = TotalFemales + TotalMales;
        return NumberA;
 }

References Population_Manager::GetLiveArraySize(), Skylark_Female::ResetBreedingSuccess(), Skylark_Female::Supply_BreedingAttempts(), Skylark_Female::Supply_BreedingSuccess(), Population_Manager::TheArray, and TheFledgelingProbe().

◆ TheFledgelingProbe()

int Skylark_Population_Manager::TheFledgelingProbe ( )

virtual

Reimplemented from Population_Manager.

                                                    {
   int NumberSk = 0;
   Skylark_Male * MS;
   for (unsigned j = 0; j < GetLiveArraySize(3); j++) {
     MS = dynamic_cast < Skylark_Male * > ( TheArray[ 3 ] [ j ] );
     if ( MS->Age == 0 ) {
       NumberSk++; // it is in the square so increment number
       VegTypeFledgelings[ MS->m_MyHome ] ++;
     }
   }
   Skylark_Female * FS;
   for (unsigned j = 0; j < GetLiveArraySize(4); j++) {
     FS = dynamic_cast < Skylark_Female * > ( TheArray[ 4 ] [ j ] );
     if ( FS->Age == 0 ) {
       NumberSk++; // it is in the square so increment number
       VegTypeFledgelings[ FS->m_MyHome ] ++;
     }
   }
   return NumberSk;
 }

References Skylark_Base::Age, Population_Manager::GetLiveArraySize(), Skylark_Base::m_MyHome, Population_Manager::TheArray, and VegTypeFledgelings.

Referenced by TheBreedingSuccessProbe().

◆ TheRipleysOutputProbe()

void Skylark_Population_Manager::TheRipleysOutputProbe ( FILE * a_prb )

virtual

This method must be overridden in descendent classes

Reimplemented from Population_Manager.

                                                                     {
   Skylark_Female* FS;
   unsigned totalF=0;
   for (unsigned j = 0; j<GetLiveArraySize(sob_Female); j++)      //adult females
   {
       FS=dynamic_cast<Skylark_Female*>(TheArray[4][j]);
       if (FS->Paired) totalF++;
   }
   int x,y;
   int w = m_TheLandscape->SupplySimAreaWidth();
   int h = m_TheLandscape->SupplySimAreaHeight();
   fprintf(a_prb,"%d %d %d %d %d\n", 0,w ,0, h, totalF);
   for (unsigned j = 0; j<GetLiveArraySize(sob_Female); j++)      //adult females
   {
       FS=dynamic_cast<Skylark_Female*>(TheArray[4][j]);
       if (FS->Paired) {
           x=FS->Supply_m_Location_x();
           y=FS->Supply_m_Location_y();
           fprintf(a_prb,"%d\t%d\n", x,y);
       }
   }
   fflush(a_prb);
 }

References Population_Manager::GetLiveArraySize(), Population_Manager::m_TheLandscape, Skylark_Adult::Paired, sob_Female, TAnimal::Supply_m_Location_x(), TAnimal::Supply_m_Location_y(), Landscape::SupplySimAreaHeight(), Landscape::SupplySimAreaWidth(), and Population_Manager::TheArray.

◆ TheSkylarkTerrsSupply_quality()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_quality ( int r )

                                                                      {
   return TheSkylarkTerrs->Supply_quality( r );
 }

References SkTerritories::Supply_quality(), and TheSkylarkTerrs.

◆ TheSkylarkTerrsSupply_size()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_size ( int r )

                                                                   {
   return TheSkylarkTerrs->Supply_size( r );
 }

References SkTerritories::Supply_size(), and TheSkylarkTerrs.

◆ TheSkylarkTerrsSupply_x()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_x ( int r )

                                                                {
   return TheSkylarkTerrs->Supply_x( r );
 }

References SkTerritories::Supply_x(), and TheSkylarkTerrs.

◆ TheSkylarkTerrsSupply_y()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_y ( int r )

                                                                {
   return TheSkylarkTerrs->Supply_y( r );
 }

References SkTerritories::Supply_y(), and TheSkylarkTerrs.

◆ WriteSKPOM1()

void Skylark_Population_Manager::WriteSKPOM1	(	int	n,
		int	n2
	)

inline

                                     {
     fprintf( SKPOM1, "%i\t%i\n", n, n2 );
   }

Referenced by Skylark_Female::OnMateDying(), Skylark_Female::OnMateHomeless(), Skylark_Clutch::st_Developing(), Skylark_Female::st_Dying(), Skylark_Female::st_GivingUpTerritory(), Skylark_Female::st_StartingNewBrood(), Skylark_Female::st_StoppingBreeding(), and Skylark_Female::Step().

◆ WriteSKPOM2()

void Skylark_Population_Manager::WriteSKPOM2	(	int	n,
		int	n2
	)

inline

                                     {
     fprintf( SKPOM2, "%i\t%i\n", n, n2 );
   }

Referenced by Skylark_Nestling::OnDeserted(), Skylark_Nestling::OnYouHaveBeenEaten(), and Skylark_Nestling::st_Developing().

Member Data Documentation

◆ EMi

double Skylark_Population_Manager::EMi

protected

Referenced by DoFirst().

◆ F_Mig_Mort

int Skylark_Population_Manager::F_Mig_Mort

protected

Referenced by DoFirst(), and Skylark_Population_Manager().

◆ m_IsBadWeather

bool Skylark_Population_Manager::m_IsBadWeather

protected

Referenced by DoFirst().

◆ M_Mig_Mort

int Skylark_Population_Manager::M_Mig_Mort

protected

Referenced by DoFirst(), and Skylark_Population_Manager().

◆ m_NoChickDeaths

int Skylark_Population_Manager::m_NoChickDeaths

protected

Referenced by DoFirst(), Init(), and LoadParameters().

◆ m_NoFledgeDeaths

int Skylark_Population_Manager::m_NoFledgeDeaths

protected

Referenced by DoFirst(), Init(), and LoadParameters().

◆ m_NoPestEffects

int Skylark_Population_Manager::m_NoPestEffects

protected

Referenced by DoFirst(), Init(), and LoadParameters().

◆ m_StriglingMort

int Skylark_Population_Manager::m_StriglingMort[4]

protected

Referenced by BreedingSuccessProbeOutput(), and DoFirst().

◆ m_TotalEggs

int Skylark_Population_Manager::m_TotalEggs

protected

Referenced by BreedingSuccessProbeOutput(), and Init().

◆ m_TotalNestlings

int Skylark_Population_Manager::m_TotalNestlings

protected

Referenced by BreedingSuccessProbeOutput(), CreateObjects(), and Init().

◆ m_TotalPrefledgelings

int Skylark_Population_Manager::m_TotalPrefledgelings

protected

Referenced by BreedingSuccessProbeOutput(), CreateObjects(), and Init().

◆ SKPOM1

FILE* Skylark_Population_Manager::SKPOM1

protected

Referenced by Init(), and ~Skylark_Population_Manager().

◆ SKPOM2

FILE* Skylark_Population_Manager::SKPOM2

protected

Referenced by Init(), and ~Skylark_Population_Manager().

◆ TheSkylarkTerrs

SkTerritories* Skylark_Population_Manager::TheSkylarkTerrs

Referenced by DoFirst(), Init(), Skylark_Male::OnEvicted(), Skylark_Population_Manager(), Skylark_Male::st_Arriving(), SupplyNoTerritories(), TheSkylarkTerrsSupply_quality(), TheSkylarkTerrsSupply_size(), TheSkylarkTerrsSupply_x(), TheSkylarkTerrsSupply_y(), and ~Skylark_Population_Manager().

◆ VegTypeFledgelings

int Skylark_Population_Manager::VegTypeFledgelings[100]

Referenced by FledgelingProbeOutput(), LoadParameters(), and TheFledgelingProbe().

The documentation for this class was generated from the following files:

/builds/a1mass/almass_stable_oddox/Skylark/skylarks_all.h
/builds/a1mass/almass_stable_oddox/Skylark/skylarks_all.cpp

Public Member Functions

Public Attributes

Protected Member Functions

Protected Attributes

Constructor & Destructor Documentation

◆ Skylark_Population_Manager()

◆ ~Skylark_Population_Manager()

Member Function Documentation

◆ AddStriglingMort()

◆ BreedingPairsOutput()

◆ BreedingSuccessProbeOutput()

◆ Catastrophe()

◆ CreateObjects()

◆ DoFirst()

◆ FledgelingProbeOutput()

◆ incNoChickDeaths()

◆ incNoFledgeDeaths()

◆ incNoPestEffects()

◆ incTotalEggs()

◆ incTotalNestlings()

◆ incTotalPrefledgelings()

◆ Init()

◆ IsBadWeather()

◆ LoadParameters()

◆ OpenTheBreedingPairsProbe()

◆ OpenTheBreedingSuccessProbe()

◆ OpenTheFledgelingProbe()

◆ ProbePOM()

◆ ProbeReportPOM()

◆ ReHouse()

◆ SetF_Mig_Mort()

◆ SetM_Mig_Mort()

◆ SupplyEMi()

◆ SupplyF_Mig_Mort()

◆ SupplyM_Mig_Mort()

◆ SupplyNoTerritories()

◆ TheAOROutputProbe()

◆ TheBreedingFemalesProbe()

◆ TheBreedingSuccessProbe()

◆ TheFledgelingProbe()

◆ TheRipleysOutputProbe()

◆ TheSkylarkTerrsSupply_quality()

◆ TheSkylarkTerrsSupply_size()

◆ TheSkylarkTerrsSupply_x()

◆ TheSkylarkTerrsSupply_y()

◆ WriteSKPOM1()

◆ WriteSKPOM2()

Member Data Documentation

◆ EMi

◆ F_Mig_Mort

◆ m_IsBadWeather

◆ M_Mig_Mort

◆ m_NoChickDeaths

◆ m_NoFledgeDeaths

◆ m_NoPestEffects

◆ m_StriglingMort

◆ m_TotalEggs

◆ m_TotalNestlings

◆ m_TotalPrefledgelings

◆ SKPOM1

◆ SKPOM2

◆ TheSkylarkTerrs

◆ VegTypeFledgelings